home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aai.d64 / bit'funtions.lst < prev    next >
File List  |  2007-02-28  |  477b  |  26 lines
  1. 9000 //
  2. 9010 FUNC BIT'ML(N,M,O) 
  3. 9020  POKE 2045,169
  4. 9030  POKE 2046,N
  5. 9040  POKE 2047,O
  6. 9050  POKE 2048,M
  7. 9060  POKE 2049,141
  8. 9070  POKE 2050,232
  9. 9080  POKE 2051,7
  10. 9090  POKE 2052,96
  11. 9100  SYS 2045
  12. 9110  RETURN PEEK(2024)
  13. 9120 ENDFUNC BIT'ML
  14. 9130 //
  15. 9140 FUNC BITAND(N,M) 
  16. 9150  RETURN BIT'ML(N,M,41)
  17. 9160 ENDFUNC BITAND
  18. 9170 //
  19. 9180 FUNC BITOR(N,M) 
  20. 9190  RETURN BIT'ML(N,M,9)
  21. 9200 ENDFUNC BITOR
  22. 9210 //
  23. 9220 FUNC BITXOR(N,M) 
  24. 9230  RETURN BIT'ML(N,M,73)
  25. 9240 ENDFUNC BITXOR
  26.